home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / golisp.zip / TXSIZE.LSP < prev    next >
Text File  |  1995-01-20  |  623b  |  24 lines
  1. ;Globally changes the height of all text selected
  2. ;Bob Zelna
  3.  
  4. (defun c:TXSIZE (/ ss txsize n index ent type oldsize newsize ent1)
  5.   (setq ss (ssget))
  6.   (setq txsize (getdist "\nEnter NEW text size"))
  7.   (setq n (sslength ss))
  8.   (setq index 0)
  9.   (repeat n
  10.      (setq ent (entget (ssname ss index)))
  11.      (setq index (+ 1 index))
  12.      (setq type (assoc 0 ent))
  13.      (if (= "TEXT" (cdr type))
  14.        (progn
  15.          (setq oldsize (assoc 40 ent))
  16.          (setq newsize (cons (car oldsize) txsize))
  17.          (setq ent1 (subst newsize oldsize ent))
  18.          (entmod ent1)
  19.        )
  20.      )
  21.   )
  22.   (princ1)
  23. )
  24.